home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / rex.lha / rex / lib / ScanDrv.mi < prev    next >
Text File  |  1992-08-18  |  854b  |  37 lines
  1. (* $Id: ScanDrv.mi,v 2.2 1992/08/07 15:29:41 grosch rel $ *)
  2.  
  3. $@ MODULE @Drv;
  4.  
  5. $@ FROM @    IMPORT BeginScanner, GetToken, GetWord, Attribute, EofToken, CloseScanner;
  6. FROM Strings    IMPORT tString, WriteL;
  7. FROM IO        IMPORT StdOutput, WriteI, WriteC, WriteNl, CloseIO;
  8. FROM Positions    IMPORT WritePosition;
  9. FROM System    IMPORT Exit;
  10.  
  11. VAR Token    : INTEGER;
  12.     Word    : tString;
  13.     Debug    : BOOLEAN;
  14.     Count    : INTEGER;
  15.  
  16. BEGIN
  17.    Debug := FALSE;
  18.    Count := 0;
  19.    BeginScanner;
  20.    REPEAT
  21.       Token := GetToken ();
  22.       INC (Count);
  23.       IF Debug THEN
  24.          GetWord (Word);
  25.      WritePosition (StdOutput, Attribute.Position);
  26.      WriteI (StdOutput, Token, 5);
  27.      WriteC (StdOutput, ' ');
  28.      WriteL (StdOutput, Word);
  29.       END;
  30.    UNTIL Token = EofToken;
  31.    CloseScanner;
  32.    WriteI (StdOutput, Count, 0);
  33.    WriteNl (StdOutput);
  34.    CloseIO;
  35.    Exit (0);
  36. $@ END @Drv.
  37.